home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / flying balls.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-16  |  760 b   |  40 lines
  1. PRINT "Flying balls"
  2. PRINT "by John Doe"
  3.  
  4. REM Make sure that your Extras diskette is named Extras
  5. REM or the program will not work
  6. REM p$ looks for the disk named Extras, the drawer named
  7. REM BasicDemos, then the file named ball, which is a graphic
  8.  
  9. REM HiSoft BASIC version has a WHILE loop at the end
  10. REM instead of a FOR loop which is too fast!
  11.  
  12. REM $option b
  13.  
  14. p$ = "Extras:BAsicDemos/Ball"
  15. OPEN p$ FOR INPUT AS 1
  16. OBJECT.SHAPE 1,INPUT$(LOF(1),1)
  17. CLOSE 1 
  18.  
  19. Start:
  20. FOR x= 2 TO 5
  21. OBJECT.SHAPE x,1
  22. OBJECT.X x,320
  23. OBJECT.Y x,60
  24. OBJECT.HIT x,0,0
  25. OBJECT.AX x, ((x=2 OR x=4) +.5) *6
  26. OBJECT.AY x, ((x>3)+.5)*1.5
  27. NEXT x
  28.  
  29. FOR x=2 TO 5
  30. OBJECT.ON x : OBJECT.START
  31. NEXT x
  32.  
  33. REM Dummy loop so that balls have time to move
  34. REM Break out of this using CTRL C
  35.  
  36. while 1
  37. wend
  38.  
  39.  
  40.